home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
libedt.src
< prev
next >
Wrap
Text File
|
1990-10-09
|
727b
|
20 lines
%%HP: T(3)A(D)F(.);
@ Author: ?
@ Library Editor
\<< 0 0 0 \-> LN NL K
\<< CLLCD "Which port {0-2} holds your library?" ":" INPUT ":" + CLLCD
"Library name:" { \Ga } INPUT + DUP 'LN' STO OBJ\-> RCL -62 SF -63 CF
\<< CONT
\>> 91.1 ASN TEXT "Edit library, press ON to continue" PROMPT NEWOB 'NL'
STO CLLCD { ABORT "" "" CONT } TMENU "<A>bort or <C>ontinue " 0 DISP
DO -1 WAIT
UNTIL IP DUP 11 == SWAP DUP SWAP DUP 13 == SWAP 'K' STO OR
END K
IF 11 ==
THEN CLLCD 0 MENU -62 CF "LIBEDT aborted" 0 DISP 440 1 BEEP 880 1 BEEP 1760
1 BEEP KILL
END LN OBJ\-> PURGE 'NL' RCL LN OBJ\-> STO -62 CF CLLCD 0 MENU
"LIBEDT complete" 0 DISP 880 2 BEEP 1 WAIT
\>>
\>>